package ResultObject;

##########################
#     OmnibusProxy       #
#    Krzysztof Ulman     #
# Politechnika Krakowska #
#      Kraków 2012       #
##########################

use strict;
use warnings;
use encoding 'utf8';
use utf8;

#tutul strony
my $title;

#adres URL
my $url;

#konstruktor
#obiekt przechowujacy pojedynczy wynik zwrocony przez wyszukiwarke
sub new {
	shift;
	my $self = {};
	bless $self;
	
	my $title = shift;
	my $url = shift;
	$self->{title} = $title;
	$self->{url} = $url;
	
	return $self;
}

sub getTitle() {
	my $self = shift;
	return $self->{title};
}

sub getUrl() {
	my $self = shift;
	return $self->{url};
}

1;